home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 1 of 3).adf / READERS_SOURCE.LHA / READERS_SOURCE / A_CAMPBELL / AJC-QUIT-REQUEST.AMOS / AJC-QUIT-REQUEST.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  452 b   |  18 lines
  1. '
  2. ' "Quit Requester" by Andrew Campbell
  3. '
  4. '
  5.  
  6. Screen Open 7,640,25,2,Hires
  7. Curs Off : Flash Off : Cls 0
  8. Screen Display 7,,120,,
  9. Palette 0,$FFF : Pen 1 : Paper 0
  10. Locate 0,1 : Centre "Are you sure you want to quit? (Y/N)"
  11. Clear Key 
  12. K$=""
  13. Repeat 
  14.    K$=Inkey$
  15. Until K$<>""
  16.  
  17. If Upper$(K$)="Y" : Fade 1 : Wait 15 : Screen Close 7 : Screen 0 : Print "Quitted!" : Edit : End If 
  18. If Upper$(K$)="N" : Screen Close 7 : Screen 0 : Print "Aborted!" : Edit : End If